home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / COMMADIO / PROCOMM.LZH / PRCMUTIL.EXE / arc / COMPUSRV.CMD next >
OS/2 REXX Batch file  |  1986-11-04  |  1KB  |  23 lines
  1. ;**********************************************************************
  2. ;*                                                                    *
  3. ;* Sample command file for automatic logon to CompuServe (r) through  *
  4. ;* Telenet.                                                           *
  5. ;*                                                                    *
  6. ;**********************************************************************
  7.  
  8. EMULATE VT100           ;* emulate VT100 terminal                        *
  9. IF NOT LINKED
  10.    DIAL "27"            ;* Call dial dir entry number 27 (Telenet)       *
  11. ENDIF
  12. TRANSMIT "!"            ;* Transmit Carriage return <CR>                 *
  13. TRANSMIT "!"            ;* Transmit Carriage return <CR>                 *
  14. WAITFOR "TERMINAL="     ;* Wait for "TERMINAL=" to come in COM port      *
  15. TRANSMIT "d1!"          ;* give telenet the terminal identifier          *
  16. WAITFOR "@"             ;* Wait for "@" to come in COM port              *
  17. TRANSMIT "C 202202!"    ;* Send request to telenet for CompuServe        *
  18. WAITFOR "User ID:"      ;* Wait for "User ID:" to come in COM port       *
  19. TRANSMIT "70006,51!"    ;* Send user ID <CR>                             *
  20. WAITFOR "Password:"     ;* Wait for "Password:" to come in COM port      *
  21. TRANSMIT "BOAT*TOUCH!"  ;* Send password <CR>                            *
  22. ALARM                   ;* Sound alarm to let you know logon is complete *
  23.